unit selTipologia;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, StdCtrls, Buttons, ExtCtrls;

type
  TfrmSelTipologia = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    sTipologia: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    edtPrefijo: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    function RecuperarIdTipologia: integer;
    function RecuperarPrefijo: string;
  public
    property idTipologia: integer read RecuperarIdTipologia;
    property prefijo: string read RecuperarPrefijo;
    function Entrar: integer;
  end;

var
  frmSelTipologia: TfrmSelTipologia;

implementation

uses MDatos, Recursos;

{$R *.dfm}

function TfrmSelTipologia.RecuperarIdTipologia: integer;
begin
  Result := Datos.cTipologiaID_TIPOLOGIA.AsInteger;
end;

function TfrmSelTipologia.RecuperarPrefijo: string;
begin
  Result := edtPrefijo.Text;
end;

function TfrmSelTipologia.Entrar: integer;
begin 
  Result := Showmodal;
end;

procedure TfrmSelTipologia.FormCreate(Sender: TObject);
begin
  Acomodo(frmSelTipologia);
  edtPrefijo.Text := '';
end;

end.
